﻿Imports Mysoft.Map.Data
Partial Public Class BizParamSetting_Import_Left
    Inherits Mysoft.Map.Application.Security.AppPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strSQL As String
        Dim dtCompany As DataTable

        strSQL = "SELECT OrderHierarchyCode AS Code,BUGUID AS GUID,BUName AS Name,CASE WHEN IsEndCompany=1 THEN '1' ELSE '0' END AS IsEndCompany, Level, '0' AS IsShow FROM myBusinessUnit WHERE BUType = 0 AND BUGUID<>'" & Session("BUGUID") & "' ORDER BY OrderHierarchyCode"

        dtCompany = MyDB.GetDataTable(strSQL)



        '绑定
        repCompany.BindMode = 1          '绑定模式：0 -- SQL 语句绑定，1 -- DataTable 绑定
        repCompany.DataTable = dtCompany
        repCompany.DataBind()

    End Sub

End Class